home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / EGAVGA.SWG / 0011_FASTRGB.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  629b  |  24 lines
  1. {
  2. GRADY WERNER
  3. Put these in your code For GREAT, FAST RGB Palette Changing...
  4. }
  5. Procedure ASetRGBPalette(Color, Red, Green, Blue : Byte);
  6. begin
  7.   Port[$3C8]:=Color;
  8.   Port[$3C9]:=Red;
  9.   Port[$3C9]:=Green;
  10.   Port[$3C9]:=Blue;
  11. end;
  12.  
  13. {
  14. This Procedure Changes palette colors about 400% faster than the
  15. built-in routines.  Also, a problem With flicker may have been encountered
  16. with Turbo's Putimage Functions.  Call this Procedure RIGHT BEFORE the
  17. putimage is called... Viola... NO Flicker!
  18. }
  19. Procedure WaitScreen;
  20. begin
  21.   Repeat Until (Port[$3DA] and $08) = 0;
  22.   Repeat Until (Port[$3DA] and $08) <> 0;
  23. end;
  24.